COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 BEGIN "TRYIT"
C00003 ENDMK
C⊗;
BEGIN "TRYIT"
STRING NEWLINE;
NEWLINE ← "
";
BEGIN
INTEGER I,J;
FOR I ← 1 STEP 1 UNTIL 8 DO
FOR J ← 1 STEP 1 UNTIL 36 DO
PRINT (J, (I*I-1)/2)-1);
PRINT(NEWLINE);
END;
END "TRYIT";